home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / psion / autoof.opl < prev    next >
Text File  |  1995-03-31  |  249b  |  18 lines
  1. PROC autooff: 
  2.     LOCAL aut% 
  3.     LOCAL esup%(3) 
  4.     call($138b) 
  5.     DO 
  6.         call($118e,addr(esup%())) 
  7.         IF esup%(3) 
  8.             aut%=-1 
  9.         ELSE 
  10.             aut%=90 
  11.         ENDIF 
  12.         IF call($178b)<>aut% 
  13.             call($188b,aut%) 
  14.         ENDIF 
  15.         pause 200 
  16.     UNTIL 0 
  17. ENDP 
  18.